inherited FRM_PesquisaEmpresa: TFRM_PesquisaEmpresa
  Left = 287
  Top = 221
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 15
  inherited gbPadrao: TAdvGroupBox
    inherited edtPesquisar: TAdvEdit
      OnKeyDown = edtPesquisarKeyDown
    end
    inherited GridPesquisar: TJvDBGrid
      Columns = <
        item
          Expanded = False
          FieldName = 'DESCRICAO_MULTIEMPRESA'
          Title.Alignment = taCenter
          Title.Caption = 'Descri'#231#227'o da Empresa/Filial'
          Width = 301
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'CNPJ'
          Title.Alignment = taCenter
          Width = 103
          Visible = True
        end>
    end
    inherited pnlTitulo: TPanel
      Caption = 'Pesquisar Lista de Empresas/Filiais'
    end
  end
  inherited sqlPesquisar: TSQLQuery
    Params = <
      item
        DataType = ftInteger
        Name = 'usuario'
        ParamType = ptInput
      end>
    SQL.Strings = (
      'select'
      '  e.cod_empresa,'
      '  e.descricao_multiempresa,'
      '  e.cnpj'
      'from usuario_multiempresa u'
      'left join empresa e on (e.cod_empresa = u.lig_cod_empresa)'
      'where u.lig_cod_usuario = :usuario'
      'order by u.lig_cod_empresa')
  end
  inherited cdsPesquisar: TClientDataSet
    object cdsPesquisarCOD_EMPRESA: TIntegerField
      FieldName = 'COD_EMPRESA'
    end
    object cdsPesquisarDESCRICAO_MULTIEMPRESA: TStringField
      FieldName = 'DESCRICAO_MULTIEMPRESA'
      Size = 50
    end
    object cdsPesquisarCNPJ: TStringField
      Alignment = taCenter
      FieldName = 'CNPJ'
    end
  end
end
